Maple Tool1.mws

Maple Tool 1

This tool is designed to be used with Activity 1 in Section 9.1.

We begin with a scatterplot of the original data. Note that the scatterplot  command is part of the statsplot  package within stats .

>    with(plots):with(stats):
data1:=[1,2,3,5,7,14,21,28,35,42,49,56,63,70,77,84,91,98,105,112];
data2:=[3,6,9,15,20,36,49,60,67,75,79,83,86,89,91,93,95,96,97,97];

>    Plot1:=statplots[scatterplot](data1,data2, color=navy, xtickmarks=[20,40,60,80,100,120], ytickmarks=[25,50,75,100],view=[0..130,0..115]):%; 

Warning, the name changecoords has been redefined

data1 := [1, 2, 3, 5, 7, 14, 21, 28, 35, 42, 49, 56, 63, 70, 77, 84, 91, 98, 105, 112]

data2 := [3, 6, 9, 15, 20, 36, 49, 60, 67, 75, 79, 83, 86, 89, 91, 93, 95, 96, 97, 97]

[Maple Plot]

Enter your estimates for M  and r .

>    M:=100;
r:=0.032;
LA:=t->M*(1-exp(-r*t));
Plot2:=plot(LA(t),t=0..120,view=[0..130,0..115]):

>    display(Plot1,Plot2);

M := 100

r := .32e-1

LA := proc (t) options operator, arrow; M*(1-exp(-r*t)) end proc

[Maple Plot]

Now adjust M  and r  to obtain a good fit.

>